use JSON::RPC::LWP;
#$rpc = JSON::RPC::LWP->new( from  => 'name@address.com', agent => 'Example ',);
$rpc = JSON::RPC::LWP->new();
print $rpc;
$uri = 'http://' . "127.0.0.1" . ':' . "7090";
$result = $rpc->call( $uri, 'add', [2,12]);
print $result->result."\n";
